home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1988 September & October / rerun-1988-09-10a.d64 / joystick pointer (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  1.5 KB  |  25 lines
  1. 10 rem joystick pointer - kenny lawson
  2. 20 forx=680to695:reada:pokex,a:ct=ct+a:next
  3. 30 forx=40960to41311:reada:pokex,a:ct=ct+a:next
  4. 40 ifct<>37849thenprint"[147]error in data statements!":end
  5. 50 printchr$(147)"run joystick prg#2 to see emulator."
  6. 60 data 165,1,41,254,133,1,32,0,160,165,1,9,1,133,1,96,162,0,189,32,161
  7. 70 data 157,192,2,232,224,64,208,245,165,170,141,0,170,169,11,141,248,7
  8. 80 data 169,1,141,21,208,169,0,141,16,208,141,27,208,141,31,208,141,39
  9. 90 data 208,169,24,141,0,208,169,50,141,1,208,173,0,220,133,170,41,16
  10. 100 data 208,6,173,0,170,76,19,161,165,170,41,15,133,170,169,15,56,229
  11. 110 data 170,240,228,201,1,208,6,32,235,160,76,1,161,201,2,208,6,32,246
  12. 120 data 160,76,1,161,201,4,208,6,32,175,160,76,1,161,201,8,208,6,32,205
  13. 130 data 160,76,1,161,201,5,208,9,32,235,160,32,175,160,76,1,161,201,9
  14. 140 data 208,9,32,235,160,32,205,160,76,1,161,201,6,208,9,32,246,160,32
  15. 150 data 175,160,76,1,161,201,10,208,9,32,246,160,32,205,160,76,1,161,76
  16. 160 data 52,160,173,16,208,240,14,173,0,208,208,16,206,16,208,169,255
  17. 170 data 141,0,208,96,173,0,208,201,24,240,3,206,0,208,96,173,16,208,240
  18. 180 data 11,173,0,208,201,82,240,3,238,0,208,96,173,0,208,201,255,208
  19. 190 data 245,238,0,208,238,16,208,96,173,1,208,201,50,240,3,206,1,208,96
  20. 200 data 173,1,208,201,245,240,3,238,1,208,96,162,16,160,100,136,208,253
  21. 210 data 202,208,248,169,0,141,31,208,76,52,160,174,31,208,240,243,133
  22. 220 data 170,169,0,141,21,208,96,240,0,0,192,0,0,160,0,0,144,0,0,8,0,0,0
  23. 230 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  24. 240 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  25.